PauseKey ([nSecs]) --> nKey:
~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Functions:
~~~~~~~~~~
The same as the InKeyWait(),but if the activating key was pressed, we
wait for a new key pressing. The code block set by SetKey() is performed
and returns a keypressed code.

Parameter description:
~~~~~~~~~~~~~~~~~~~~~~
nSecs: time is seconds how long to wait for keypressing

Return value:
~~~~~~~~~~~~~
keypressed code

Example:
~~~~~~~~
     SetKey(K_F1,{||HelpKeys()})
     ? PauseKey(0)
     ...
Hangs on F1 key a HelpKeys() function and waits for a keypressing. If
F1 key was pressed the HelpKeys() function is performed and continues
the waiting wor a keypress. If there was another key pressed its code
is displayed.

Source code is in file  Object3.prg